0 CLR
10 X=RND(-TI)
20 DEFFNA(X)=INT(110*RND(1))+20
30 DEFFNB(X)=INT(14*RND(1))+1
40 DEFFNC(X)=INT(11*RND(1))+1
50 DEFFND(X)=INT(25*RND(1))+1
60 DEFFNE(X)=INT(959*RND(0))+1024
70 DIMT(26)
80 FORI=1TO26:READT(I):NEXT
90 FORI=54272TO54295:POKEI,0:NEXT:POKE54296,15:POKE54277,16:POKE54275,8
100 FR=54273:VC=54276:SC=1024:MN=1063:MO=1064:MA=1983:CO=40:LO=39:LI=41
110 VN=65:VO=64:C=54272
120 PRINTCHR$(147)CHR$(5):POKE53280,0:POKE53281,0
130 FORT=1TO10:PRINT:NEXT
140 PRINTTAB(4)"PRESS SPACE BAR FOR NEW PATTERN
150 [129]T[178]1[164]1000:[130]
160 [153][199](147)
170 B[178]T([165]D(X)):[143] CHARACTER
180 K[178][165]E(X):[143] STARTING POINT
190 P[178][165]C(X):H(1)[178][165]A(X)
200 Q[178][165]C(X):H(2)[178][165]A(X)
210 R[178][165]C(X):H(3)[178][165]A(X)
220 S[178][165]C(X):H(4)[178][165]A(X)
230 T[178][165]B(X):U[178][165]B(X):V[178][165]B(X):W[178][165]B(X)
240 [129]X[178]1[164]P:[151]K,B:[151]K[170]C,T:[151]FR,H(1):[151]VC,VN:K[178]K[170]LI
250 [139]K[177]MA[167]280
260 [139](K[171]MN)[173]CO[171][181]((K[171]MN)[173]CO)[178]0[167]380
270 [151]VC,VO:[130]
280 [161]A$:[139]A$[178]" "[167]160
290 [129]X[178]1[164]Q:[151]K,B:[151]K[170]C,U:[151]FR,H(2):[151]VC,VN:K[178]K[171]LO
300 [139]K[179]MO[167]240
310 [139](K[171]MN)[173]CO[171][181]((K[171]MN)[173]CO)[178]0[167]330
320 [151]VC,VO:[130]
330 [161]A$:[139]A$[178]" "[167]160
340 [129]X[178]1[164]R:[151]K,B:[151]K[170]C,V:[151]FR,H(3):[151]VC,VN:K[178]K[171]LI
350 [139]K[179]MO[167]380
360 [139](K[171]SC)[173]CO[171][181]((K[171]SC)[173]CO)[178]0[167]280
370 [151]VC,VO:[130]
380 [161]A$:[139]A$[178]" "[167]160
390 [129]X[178]1[164]S:[151]K,B:[151]K[170]C,W:[151]FR,H(4):[151]VC,VN:K[178]K[170]LO
400 [139](K[171]SC)[173]CO[171][181]((K[171]SC)[173]CO)[178]0[167]240
410 [139]K[177]MA[167]330
420 [151]VC,VO:[130]:[137]190
430 [131]81,95,105,127,160,170,171,174,186,192,205,206,209,214,215,219,221
440 [131]223,226,230,233,236,251,252,254,255